﻿Public Class frmCestas
    Dim objcontrole As New ClsControle
    Dim objCesta As New CLSCestas
    Dim objProduto As New CLSProdutos
    Dim novo As Boolean

    Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
  


    End Sub

    Private Sub btnItens_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddItens.Click

        frmItensCestas.Show()

    End Sub
End Class